home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / cuberoot.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  120 lines
  1. 98 PRINTCHR$(147)
  2. 100 PRINT"OPTION #1 CUBES":PRINT:PRINT:PRINT:PRINT
  3. 120 PRINT"OPTION #2 CUBE ROOTS":PRINT:PRINT:PRINT:PRINT
  4. 125 PRINT"OPTION #3 END PROGRAM":PRINT:PRINT:PRINT:PRINT
  5. 130 INPUT"SELECT(1/2/3)";A
  6. 140 ON A GOTO 200,600,2000
  7. 200 PRINTCHR$(147):POKE 53280,7:POKE 53281,7
  8. 210 PRINT"OPTION #1 SINGLE CUBES":PRINT:PRINT:PRINT:PRINT
  9. 220 PRINT"OPTION #2 CONTINOUS CUBES":PRINT:PRINT:PRINT:PRINT
  10. 230 INPUT"SELECT(1/2)";B
  11. 240 ON B GOTO 250,400
  12. 250 PRINTCHR$(147)
  13. 260 INPUT"SCREEN OR PRINTER(S/P)";Z$
  14. 265 IF Z$="S" THEN 280
  15. 270 IF Z$="P" THEN 320
  16. 280 PRINTCHR$(147):INPUT"NUMBER TO BE CUBED";Y
  17. 290 X=Y^3
  18. 300 PRINTY;"CUBED =";X
  19. 304 INPUT"ANOTHER OR MENU(A/M)";Q$
  20. 305 IF Q$="A" THEN 250
  21. 308 IF Q$="M" THEN 98
  22. 320 PRINTCHR$(147):INPUT"NUMBER TO BE CUBED";Y
  23. 330 OPEN3,4
  24. 340 CMD3
  25. 350 X=Y^3
  26. 360 PRINTY"CUBED =";X
  27. 370 PRINT#3
  28. 380 CLOSE 3
  29. 390 INPUT"ANOTHER OR MENU(A/M)";W$
  30. 393 IF W$="A" THEN 320
  31. 395 IF W$="M" THEN 98
  32. 400 PRINTCHR$(147):POKE 53280,2:POKE53281,3
  33. 405 INPUT"SCREEN OR PRINTER(S/P)";P$
  34. 407 IF P$="S" THEN 410
  35. 409 IF P$="P" THEN 500
  36. 410 FOR Y = 1 TO 250
  37. 420 X=Y^3
  38. 430 PRINTY;"CUBED =";X
  39. 435 FOR U= 1 TO 1500:NEXT U:PRINT:PRINT:PRINT
  40. 437 NEXT Y
  41. 440 INPUT"AGAIN OR MENU(A/M)";F$
  42. 442 IF F$="A" THEN 400
  43. 445 IF F$="M" THEN 98
  44. 500 PRINTCHR$(147)
  45. 501 PRINT"PRINTING"
  46. 510 OPEN3,4
  47. 520 CMD3
  48. 530 FOR Y= 1 TO 250
  49. 540 X=Y^3
  50. 550 PRINTY;"CUBED =";X
  51. 560 NEXT Y
  52. 565 PRINT#3
  53. 568 CLOSE3
  54. 570 INPUT"ANOTHER OR MENU(A/M)";I$
  55. 580 IF I$="A" THEN 500
  56. 590 IF I$="M" THEN 98
  57. 600 PRINTCHR$(147)
  58. 610 PRINT"OPTION #1 SINGLE CUBE ROOT":PRINT:PRINT:PRINT:PRINT
  59. 620 PRINT"OPTION #2 CONTINOUS CUBE ROOTS":PRINT:PRINT:PRINT:PRINT
  60. 630 INPUT"SELECT(1/2)";O
  61. 640 ON O GOTO 660,900
  62. 660 PRINTCHR$(147)
  63. 665 INPUT"SCREEN OR PRINTER(S/P)";T$
  64. 670 IF T$="S" THEN 690
  65. 680 IF T$="P" THEN 745
  66. 690 INPUT"ENTER NUMBER";Y
  67. 700 X=Y^(1/3)
  68. 710 PRINT"THE CUBED ROOT OF";Y;"=";X
  69. 720 INPUT"ANOTHER OR MENU(A/M)";R$
  70. 730 IF R$="A" THEN 660
  71. 740 IF R$="M" THEN 98
  72. 745 PRINTCHR$(147)
  73. 750 INPUT"ENTER NUMBER";Y
  74. 760 OPEN3,4
  75. 770 CMD 3
  76. 780 X=Y^(1/3)
  77. 790 PRINT"THE CUBED ROOT OF";Y;"=";X
  78. 800 PRINT#3
  79. 805 CLOSE 3
  80. 810 INPUT"ANOTHER OR MENU(A/M)";K$
  81. 812 IF K$="A" THEN 745
  82. 815 IF K$="M" THEN 98
  83. 900 PRINTCHR$(147):POKE 53280,0:POKE 53281,2
  84. 910 INPUT"SCREEN OR PRINTER(S/P)";E$
  85. 912 IF E$="S" THEN 920
  86. 915 IF E$="P" THEN 1000
  87. 920 PRINTCHR$(147)
  88. 925 FOR Y= 1 TO 250
  89. 930 X=Y^(1/3)
  90. 940 PRINT"THE CUBED ROOT OF";Y;"=";X
  91. 950 FOR T=1 TO 1500:NEXT T:PRINT:PRINT:PRINT:PRINT
  92. 960 NEXT Y
  93. 970 INPUT"AGAIN OR MENU(A/M)";H$
  94. 980 IF H$="A" THEN 920
  95. 990 IF H$="M" THEN 98
  96. 1000 PRINTCHR$(147)
  97. 1005 PRINT"PRINTING"
  98. 1010 OPEN3,4
  99. 1020 CMD 3
  100. 1030 FOR Y= 1 TO 250
  101. 1040 X=Y^(1/3)
  102. 1050 PRINT"THE CUBED ROOT OF";Y;"=";X
  103. 1060 NEXT Y
  104. 1070 PRINT#3
  105. 1080 CLOSE3
  106. 1090 INPUT"AGAIN OR MENU(A/M)";S$
  107. 1092 IF S$="A" THEN 1000
  108. 1095 IF S$="M" THEN 98
  109. 2000 END
  110. 6000 PRINTCHR$(147):POKE53280,6:POKE53281,6
  111. 6005 PRINT:PRINT:PRINT:PRINT
  112. 6010 PRINTTAB(12)CHR$(144)"*** FOGGER ***"
  113. 6020 FOR T= 1 TO 3000:NEXT T:PRINT:PRINT:PRINT:PRINT
  114. 6030 PRINTTAB(12)CHR$(144)"*** PRESENTS ***"
  115. 6040 FOR F=1 TO 3000:NEXT F
  116. 6045 PRINTCHR$(147):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  117. 6050 PRINTTAB(10)CHR$(144)"CUBES AND CUBE ROOTS"
  118. 6055 FOR U= 1 TO 3000:NEXT U
  119. 6060 RETURN
  120.